Aminet 30/Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso/Aminet/dev/lang/SmallEiffel.lha/SmallEiffel/lib_se/compile.e

Text File | 1998-12-22 | 5KB | 171 lines

--          This file is part of SmallEiffel The GNU Eiffel Compiler.
--          Copyright (C) 1994-98 LORIA - UHP - CRIN - INRIA - FRANCE
--            Dominique COLNET and Suzanne COLLIN - [e-mail]
--                       http://www.loria.fr/SmallEiffel
-- SmallEiffel is  free  software;  you can  redistribute it and/or modify it
-- under the terms of the GNU General Public License as published by the Free
-- Software  Foundation;  either  version  2, or (at your option)  any  later
-- version. SmallEiffel is distributed in the hope that it will be useful,but
-- WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-- or  FITNESS FOR A PARTICULAR PURPOSE.   See the GNU General Public License
-- for  more  details.  You  should  have  received a copy of the GNU General
-- Public  License  along  with  SmallEiffel;  see the file COPYING.  If not,
-- write to the  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-- Boston, MA 02111-1307, USA.
--
class COMPILE -- The command.

inherit GLOBALS;

creation make

feature {NONE}

   clean: BOOLEAN;
     -- True if command clean must be called.

   make_file: STD_FILE_READ is
      once
     !!Result.make;
      end;

   command: STRING is
      once
     !!Result.make(256);
      end;

feature

   make is
      local
     time_out: INTEGER;
     str: STRING;
      do
     if argument_count < 1 then
        system_tools.bad_use_exit("compile");
     end;
     echo.search_for_verbose_flag;
     system_tools.compile_to_c_in(command);
     scan_command_line;
     if run_control.root_class = Void then
        echo.w_put_string("Error : No <Root-Class> in command line.%N");
        die_with_code(exit_failure_code);
     end;
     -- -------------------------------------------- Cleaning :
     -- ---------------------------------------Running script :
     str := system_tools.remove_make_script;
     echo.call_system(command);
         from -- Because of a bug in cygnus/WNT :
            time_out := 2000;
         until
            time_out = 0 or else make_file.is_connected
         loop
            make_file.connect_to(str);
            time_out := time_out - 1;
         end;
     if not make_file.is_connected then
        echo.w_put_string(fz_01);
        echo.w_put_string(str);
        echo.w_put_string("%" not found. %
                %Error(s) during `compile_to_c'.%N");
        die_with_code(exit_failure_code);
     end;
     echo.put_string("C compiling using %"");
     echo.put_string(str);
     echo.put_string("%" command file.%N");
     from
        make_file.read_line;
     until
        make_file.last_string.count = 0
     loop
        command.copy(make_file.last_string);
        echo.call_system(command);
        make_file.read_line;
     end;
     make_file.disconnect;
     -- -------------------------------------------- Cleaning :
     if clean then
        command.clear;
        system_tools.clean_in(command);
        command.extend(' ');
            if echo.verbose then
           command.append(fz_verbose_flag);
           command.extend(' ');
        end;
        command.append(str);
        echo.call_system(command);
     else
        echo.put_string("C code not removed.%N");
     end;
     echo.put_string(fz_02);
      end;

feature {NONE}

   scan_command_line is
      local
     state, arg: INTEGER;
     a: STRING;
     -- state 0  : nothing done.
     -- state 1  : "-o"/"-cc"/"-cecil" read.
     -- state 2  : Root class name read.
      do
     from
        arg := 1;
     until
        arg > argument_count
     loop
        a := argument(arg);
        if fz_verbose_flag.is_equal(a) then
           command.extend(' ');
           command.append(a);
        elseif ("-c_code").is_equal(a) then
           echo.w_put_string(
                  "Flag -c_code is now obsolete (this is the default).%N%
                  %See documentation of `compile' (flag -clean).%N");
           clean := false;
        elseif ("-clean").is_equal(a) then
           clean := true;
        else
           command.extend(' ');
           command.append(a);
           inspect
          state
           when 0 then
          if a.item(1) /= '-' then
             if a.has_suffix(o_suffix) then
             elseif a.has_suffix(c_suffix) then
             elseif a.item(1) = '+' then
             elseif run_control.root_class = Void then
            run_control.compute_root_class(a);
            state := 2;
             else
             end;
          elseif ("-o").is_equal(a) then
             state := 1;
          elseif a.item(1) = '-' and then a.item(2) = 'o' then
          elseif ("-cc").is_equal(a) then
             state := 1;
          elseif ("-cecil").is_equal(a) then
             state := 1;
          else
          end;
           when 1 then
          state := 0;
           when 2 then
          state := 0;
           end;
        end;
        arg := arg + 1;
     end;
      end;

feature {NONE}

   tmp_file_write: STD_FILE_WRITE is
      once
     !!Result.make;
      end;

end -- COMPILE -- The command.